home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / koffie / beast.install next >
Text File  |  1997-01-24  |  1KB  |  47 lines
  1. ; $VER: BEAST.install 0.1 (Jan 14 1996)
  2. ; Install script for BEAST
  3. (set @default-dest "")
  4.  
  5. (set #bad-kick         "You must be using Kickstart 2.04+ to use BEAST.")
  6. (set #destination    "Where would you like BEAST to be installed?\nA directory BEAST will be created.")
  7. (set #StartupPrompt     "Now changes will be made in the s:user-startup file.\nThis action is recommended so that BEAST will be available at startup.")
  8. (set #StartupHelp    "This action enables the BEAST system at startup.")
  9.  
  10. (if (< (/ (getversion) 65535) 37)
  11. (
  12.   (abort #bad-kick)
  13. ))
  14.  
  15. (set dest_dir
  16.    (askdir (prompt (#destination))
  17.            (help @askdir-help)
  18.            (default @default-dest)
  19.            (newpath))
  20. )
  21. (set @default-dest (tackon dest_dir "BEAST"))
  22.  
  23. (if (= 1 (exists @default-dest (noreq)))
  24.  (
  25.   (abort "Directory already in use")
  26.  )
  27. )
  28.  
  29. (if (= 0 (exists @default-dest (noreq)))
  30.  (makedir @default-dest )
  31. )
  32.  
  33. (set BST_C        (tackon @default-dest    "C"))
  34. (set BST_Libs        (tackon @default-dest    "Libs"))
  35. (set BST_Classes    (tackon @default-dest    "Classes"))
  36. (set BST_Home        (tackon @default-dest    "Home"))
  37.  
  38. (copyfiles (source "C")        (dest BST_C)       (all))
  39. (copyfiles (source "Libs")     (dest BST_Libs)       (all))
  40. (copyfiles (source "Classes")    (dest BST_Classes) (all))
  41. (copyfiles (source "Home")    (dest BST_Home)       (all))
  42.  
  43. (makeassign "BEAST" @default-dest)
  44. (startup "BEAST" (prompt #StartupPrompt) (help #StartupHelp)
  45.   (command (cat "Assign BEAST: " @default-dest "\n"))
  46.   (command (cat    "Execute BEAST:C/BST_BuildBeast\n"))
  47. )